home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / movement / Supply Order.lua < prev    next >
Encoding:
Text File  |  2009-09-27  |  1.4 KB  |  42 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Supply Order
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, September 2009, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.supplyorder={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.supplyorder.gfx_wpn=loadgfx("weapons/supplyorder.png")                                -- Weapon Image
  13. setmidhandle(cc.supplyorder.gfx_wpn)
  14. cc.supplyorder.sfx_attack=loadsfx("supplyincoming.ogg")
  15.  
  16.  
  17. --------------------------------------------------------------------------------
  18. -- Weapon: Supply Order
  19. --------------------------------------------------------------------------------
  20.  
  21. cc.supplyorder.id=addweapon("cc.supplyorder","Supply Order",cc.supplyorder.gfx_wpn,0)    -- Add Weapon (0 uses)
  22.  
  23. function cc.supplyorder.draw()                                                            -- Draw
  24.     -- HUD Positioning
  25.     hudpositioning(pos_invisible)
  26. end
  27.  
  28. function cc.supplyorder.attack(attack)                                                    -- Attack
  29.     if (weapon_position==1) and (weapon_shots==0) then
  30.         weapon_position=0
  31.         weapon_shots=weapon_shots+1
  32.         -- Create and Scroll
  33.         for i=-100,100,50 do
  34.             createobject(o_supply,weapon_x+i,-150)
  35.         end
  36.         scroll(weapon_x,0)
  37.         -- Use weapon and allow to use another one afterwards (1)
  38.         useweapon(1)
  39.         -- SFX
  40.         playsound(cc.supplyorder.sfx_attack)
  41.     end
  42. end